home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / trivia.arc / CAPS.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-11-23  |  8.5 KB  |  269 lines
  1. 10  KEY OFF:WIDTH 80
  2. 20  LET X=0
  3. 30  LET Z=0
  4. 40  CLS:COLOR 17:LOCATE 5,35:PRINT "CAPITALS"
  5. 50  COLOR 2:LOCATE 7,28:PRINT "This includes Capitals"
  6. 60  LOCATE 8,28:PRINT "within the U.S. and Canada."
  7. 70  LOCATE 15,27:PRINT "Enter [B] to begin.  Input":LOCATE 15,53:INPUT B$
  8. 80  IF B$="B" THEN 90 ELSE 40
  9. 90  GOTO 1940
  10. 100  G$="JUNEAU"
  11. 110  COLOR 2:LOCATE 7,25:PRINT "The Capital of ALASKA is:"
  12. 120  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  13. 130  IF F$="JUNEAU" THEN 2040 ELSE 2170
  14. 140  G$="FRANKFORT"
  15. 150  COLOR 2:LOCATE 7,25:PRINT "The Captial of KENTUCKY is:"
  16. 160  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  17. 170  IF F$="FRANKFORT" THEN 2040 ELSE 2170
  18. 180  G$="ANNAPOLIS"
  19. 190  COLOR 2:LOCATE 7,25:PRINT "The Capital of MARYLAND is:"
  20. 200  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  21. 210  IF F$="ANNAPOLIS" THEN 2040 ELSE 2170
  22. 220  G$="AUGUSTA"
  23. 230  COLOR 2:LOCATE 7,25:PRINT "The Captial of MAINE is:"
  24. 240  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  25. 250  IF F$="AUGUSTA" THEN 2040 ELSE 2170
  26. 260  G$="DOVER"
  27. 270  COLOR 2:LOCATE 7,25:PRINT "The Capital of DELEWARE is:"
  28. 280  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  29. 290  IF F$="DOVER" THEN 2040 ELSE 2170
  30. 300  G$="TALLAHASSEE"
  31. 310  COLOR 2:LOCATE 7,25:PRINT "The Capital of FLORIDA is:"
  32. 320  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  33. 330  IF F$="TALLAHASSEE" THEN 2040 ELSE 2170
  34. 340  G$="SPRINGFIELD"
  35. 350  COLOR 2:LOCATE 7,25:PRINT "The Capital of ILLINOIS is:"
  36. 360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  37. 370  IF F$="SPRINGFIELD" THEN 2040 ELSE 2170
  38. 380  G$="TOPEKA"
  39. 390  COLOR 2:LOCATE 7,25:PRINT "The Capital of KANSAS is:"
  40. 400  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  41. 410  IF F$="TOPEKA" THEN 2040 ELSE 2170
  42. 420  G$="BATON ROUGE"
  43. 430  COLOR 2:LOCATE 7,25:PRINT "The Capital of LOUISIANA is:"
  44. 440  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  45. 450  IF F$="BATON ROUGE" THEN 2040 ELSE 2170
  46. 460  G$="JACKSON"
  47. 470  COLOR 2:LOCATE 7,25:PRINT "The Capital of MISSISSIPPI is:"
  48. 480  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  49. 490  IF F$="JACKSON" THEN 2040 ELSE 2170
  50. 500  G$="LANSING"
  51. 510  COLOR 2:LOCATE 7,25:PRINT "The Capital of MICHIGAN is:"
  52. 520  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  53. 530  IF F$="LANSING" THEN 2040 ELSE 2170
  54. 540  G$="HELENA"
  55. 550  COLOR 2:LOCATE 7,25:PRINT "The Capital of MONTANA is:"
  56. 560  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  57. 570  IF F$="HELENA" THEN 2040 ELSE 2170
  58. 580  G$="JEFFERSON CITY"
  59. 590  COLOR 2:LOCATE 7,25:PRINT "The Capital of MISSOURI is:"
  60. 600  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  61. 610  IF F$="JEFFERSON CITY" THEN 2040 ELSE 2170
  62. 620  G$="CARSON CITY"
  63. 630  COLOR 2:LOCATE 7,25:PRINT "The Capital of NEVADA is:"
  64. 640  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  65. 650  IF F$="CARSON CITY" THEN 2040 ELSE 2170
  66. 660  G$="TRENTON"
  67. 670  COLOR 2:LOCATE 7,25:PRINT "The Capital of NEW JERSEY is:"
  68. 680  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  69. 690  IF F$="TRENTON" THEN 2040 ELSE 2170
  70. 700  G$="BISMARCK"
  71. 710  COLOR 2:LOCATE 7,25:PRINT "The Capital of NORTH DAKOTA is:"
  72. 720  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  73. 730  IF F$="BISMARCK" THEN 2040 ELSE 2170
  74. 740  G$="MONTPELIER"
  75. 750  COLOR 2:LOCATE 7,25:PRINT "The Capital of VERMONT is:"
  76. 760  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  77. 770  IF F$="MONTPELIER" THEN 2040 ELSE 2170
  78. 780  G$="SANTA FE"
  79. 790  COLOR 2:LOCATE 7,25:PRINT "The Capital of NEW MEXICO is:"
  80. 800  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  81. 810  IF F$="SANTA FE" THEN 2040 ELSE 2170
  82. 820  G$="COLUMBIA"
  83. 830  COLOR 2:LOCATE 7,25:PRINT "The Capital of SOUTH CAROLINA is:"
  84. 840  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  85. 850  IF F$="COLUMBIA" THEN 2040 ELSE 2170
  86. 860  G$="PIERRE"
  87. 870  COLOR 2:LOCATE 7,25:PRINT "The Capital of SOUTH DAKOTA is:"
  88. 880  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  89. 890  IF F$="PIERRE" THEN 2040 ELSE 2170
  90. 900  G$="MADISON"
  91. 910  COLOR 2:LOCATE 7,25:PRINT "The Capital of WISCONSIN is:"
  92. 920  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  93. 930  IF F$="MADISON" THEN 2040 ELSE 2170
  94. 940  G$="VICTORIA"
  95. 950  COLOR 2:LOCATE 7,25:PRINT "The Capital of BRITISH COLUMBIA is:"
  96. 960  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  97. 970  IF F$="VICTORIA" THEN 2040 ELSE 2170
  98. 980  G$="CHARLESTON"
  99. 990  COLOR 2:LOCATE 7,25:PRINT "The Capital of WEST VIRGINIA is:"
  100. 1000  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  101. 1010  IF F$="CHARLESTON" THEN 2040 ELSE 2170
  102. 1020  G$="CHEYENNE"
  103. 1030  COLOR 2:LOCATE 7,25:PRINT "The Capital of WYOMING is:"
  104. 1040  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  105. 1050  IF F$="CHEYENNE" THEN 2040 ELSE 2170
  106. 1060  G$="QUEBEC"
  107. 1070  COLOR 2:LOCATE 7,25:PRINT "The Capital of QUEBEC is:"
  108. 1080  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  109. 1090  IF F$="QUEBEC" THEN 2040 ELSE 2170
  110. 1100  G$="PROVIDENCE"
  111. 1110  COLOR 2:LOCATE 7,25:PRINT "The Capital of RHODE ISLAND is:"
  112. 1120  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  113. 1130  IF F$="PROVIDENCE" THEN 2040 ELSE 2170
  114. 1140  G$="ST. PAUL"
  115. 1150  COLOR 2:LOCATE 7,25:PRINT "The Capital of MINNESOTA is:"
  116. 1160  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  117. 1170  IF F$="ST. PAUL" THEN 2040 ELSE 2170
  118. 1180  G$="FREDERICTON"
  119. 1190  COLOR 2:LOCATE 7,25:PRINT "The Capital of NEW BRUNSWICK is:"
  120. 1200  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  121. 1210  IF F$="FREDERICTON" THEN 2040 ELSE 2170
  122. 1220  G$="COLUMBUS"
  123. 1230  COLOR 2:LOCATE 7,25:PRINT "The Capital of OHIO is:"
  124. 1240  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  125. 1250  IF F$="COLUMBUS" THEN 2040 ELSE 2170
  126. 1260  G$="ALBANY"
  127. 1270  COLOR 2:LOCATE 7,25:PRINT "The Capital of NEW YORK is:"
  128. 1280  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  129. 1290  IF F$="ALBANY" THEN 2040 ELSE 2170
  130. 1300  G$="TORONTO"
  131. 1310  COLOR 2:LOCATE 7,25:PRINT "The Capital of ONTARIO is:"
  132. 1320  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  133. 1330  IF F$="TORONTO" THEN 2040 ELSE 2170
  134. 1340  G$="SALEM"
  135. 1350  COLOR 2:LOCATE 7,25:PRINT "The Capital of OREGON is:"
  136. 1360  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  137. 1370  IF F$="SALEM" THEN 2040 ELSE 2170
  138. 1380  G$="AUSTIN"
  139. 1390  COLOR 2:LOCATE 7,25:PRINT "The Capital of TEXAS is:"
  140. 1400  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  141. 1410  IF F$="AUSTIN" THEN 2040 ELSE 2170
  142. 1420  G$="REGINA"
  143. 1430  COLOR 2:LOCATE 7,25:PRINT "The Capital of SASKATCHEWAN is:"
  144. 1440  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  145. 1450  IF F$="REGINA" THEN 2040 ELSE 2170
  146. 1460  G$="BOISE"
  147. 1470  COLOR 2:LOCATE 7,25:PRINT "The Capital of IDAHO is:"
  148. 1480  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  149. 1490  IF F$="BOISE" THEN 2040 ELSE 2170
  150. 1500  G$="HONOLULU"
  151. 1510  COLOR 2:LOCATE 7,25:PRINT "The Capital of HAWAII is:"
  152. 1520  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  153. 1530  IF F$="HONOLULU" THEN 2040 ELSE 2170
  154. 1540  G$="HALIFAX"
  155. 1550  COLOR 2:LOCATE 7,25:PRINT "The Capital of NOVA SCOTIA is:"
  156. 1560  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  157. 1570  IF F$="HALIFAX" THEN 2040 ELSE 2170
  158. 1580  G$="HARRISBURG"
  159. 1590  COLOR 2:LOCATE 7,25:PRINT "The Capital of PENNSYLVANIA is:"
  160. 1600  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  161. 1610  IF F$="HARRISBURG" THEN 2040 ELSE 2170
  162. 1620  G$="NASHVILLE"
  163. 1630  COLOR 2:LOCATE 7,25:PRINT "The Capital of TENNESSEE is:"
  164. 1640  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  165. 1650  IF F$="NASHVILLE" THEN 2040 ELSE 2170
  166. 1660  G$="OLYMPIA"
  167. 1670  COLOR 2:LOCATE 7,25:PRINT "The Capital of WASHINGTON is:"
  168. 1680  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  169. 1690  IF F$="OLYMPIA" THEN 2040 ELSE 2170
  170. 1700  G$="OKLAHOMA CITY"
  171. 1710  COLOR 2:LOCATE 7,25:PRINT "The Capital of OKLAHOMA is:"
  172. 1720  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  173. 1730  IF F$="OKLAHOMA CITY" THEN 2040 ELSE 2170
  174. 1740  G$="EDMONTON"
  175. 1750  COLOR 2:LOCATE 7,25:PRINT "The Capital of ALBERTA is:"
  176. 1760  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  177. 1770  IF F$="ALBERTA" THEN 2040 ELSE 2170
  178. 1780  G$="ATLANTA"
  179. 1790  COLOR 2:LOCATE 7,25:PRINT "The Capital of GEORGIA is:"
  180. 1800  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  181. 1810  IF F$="ATLANTA" THEN 2040 ELSE 2170
  182. 1820  G$="WINNIPEG"
  183. 1830  COLOR 2:LOCATE 7,25:PRINT "The Capital of MANITOBA is:"
  184. 1840  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  185. 1850  IF F$="WINNIPEG" THEN 2040 ELSE 2170
  186. 1860  G$="RICHMOND"
  187. 1870  COLOR 2:LOCATE 7,25:PRINT "The Capital of VIRGINIA is:"
  188. 1880  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  189. 1890  IF F$="RICHMOND" THEN 2040 ELSE 2170
  190. 1900  G$="SALT LAKE CITY"
  191. 1910  COLOR 2:LOCATE 7,25:PRINT "The Capital of UTAH is:"
  192. 1920  COLOR 3:LOCATE 15,33:PRINT "Input":LOCATE 15,38:INPUT F$
  193. 1930  IF F$="SALT LAKE CITY" THEN 2040 ELSE 2170
  194. 1940  CLS:GOSUB 100:GOSUB 140:GOSUB 180:GOSUB 220:GOSUB 260:GOSUB 300
  195. 1950  GOSUB 340:GOSUB 380:GOSUB 420:GOSUB 460:GOSUB 500
  196. 1960  GOSUB 540:GOSUB 580:GOSUB 620:GOSUB 660:GOSUB 700
  197. 1970  GOSUB 740:GOSUB 780:GOSUB 820:GOSUB 860:GOSUB 900
  198. 1980  GOSUB 940:GOSUB 980:GOSUB 1020:GOSUB 1060:GOSUB 1100
  199. 1990  GOSUB 1140:GOSUB 1180:GOSUB 1220:GOSUB 1260:GOSUB 1300
  200. 2000  GOSUB 1340:GOSUB 1380:GOSUB 1420:GOSUB 1460:GOSUB 1500
  201. 2010  GOSUB 1540:GOSUB 1580:GOSUB 1620:GOSUB 1660:GOSUB 1700
  202. 2020  GOSUB 1740:GOSUB 1780:GOSUB 1820:GOSUB 1860:GOSUB 1900
  203. 2030  GOTO 2300
  204. 2040  GOSUB 2041:GOTO 2060
  205. 2041  CLS:LET L$=CHR$(186)+SPACE$(29)+CHR$(186)
  206. 2042  COLOR 5:LOCATE 5,1,0:PRINT TAB(25);CHR$(201);STRING$(29,205);CHR$(187)
  207. 2043  COLOR 1:PRINT TAB(25);L$
  208. 2044  COLOR 2:PRINT TAB(25);L$
  209. 2045  COLOR 3:PRINT TAB(25);L$
  210. 2046  COLOR 4:PRINT TAB(25);L$
  211. 2047  COLOR 5:PRINT TAB(25);L$
  212. 2048  COLOR 6:PRINT TAB(25);L$
  213. 2049  COLOR 7:PRINT TAB(25);L$
  214. 2050  COLOR 8:PRINT TAB(25);L$
  215. 2051  COLOR 9:PRINT TAB(25);L$
  216. 2052  COLOR 10:PRINT TAB(25);L$
  217. 2053  COLOR 11:PRINT TAB(25);L$
  218. 2054  COLOR 12:PRINT TAB(25);L$
  219. 2055  COLOR 13:PRINT TAB(25);L$
  220. 2056  COLOR 2:PRINT TAB(25);L$
  221. 2057  PRINT TAB(25);CHR$(200);STRING$(29,205);CHR$(188)
  222. 2058  RETURN
  223. 2060  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D2"
  224. 2062  COLOR 18:LOCATE 7,36:PRINT "CORRECT"
  225. 2070  LET X=X+1:COLOR 6:LOCATE 9,34:PRINT "Your Status:"
  226. 2080  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  227. 2090  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  228. 2100  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  229. 2110  LOCATE 17,27:PRINT "Enter [N] for next question"
  230. 2120  LOCATE 18,27:PRINT "or [Q] to quit.  Input"
  231. 2130  LOCATE 18,49:INPUT Q$
  232. 2140  IF Q$="N" THEN 2160
  233. 2150  IF Q$="Q" THEN 2300 ELSE 2110
  234. 2160  CLS:RETURN
  235. 2170  GOSUB 2041
  236. 2180  PLAY "O1 A4"
  237. 2190  COLOR 20:LOCATE 7,35:PRINT "INCORRECT"
  238. 2200  LET Z=Z+1:COLOR 6:LOCATE 9,34:PRINT "Your Status"
  239. 2210  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  240. 2220  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  241. 2230  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  242. 2240  LOCATE 17,27:PRINT "Enter [N] for next question"
  243. 2250  LOCATE 18,27:PRINT "or [Q] to quit.  Input"
  244. 2260  COLOR 2:LOCATE 21,27:PRINT "The Answer was:":COLOR 3:LOCATE 21,43:PRINT G$
  245. 2270  COLOR 6:LOCATE 18,49:INPUT Q$
  246. 2280  IF Q$="N" THEN 2160
  247. 2290  IF Q$="Q" THEN 2300 ELSE 2240
  248. 2300  CLS:IF X=46 THEN 2390 ELSE 2305
  249. 2305  GOSUB 2041
  250. 2310  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  251. 2320  COLOR 6:LOCATE 9,35:PRINT "Your Score"
  252. 2330  COLOR 2:LOCATE 11,28:PRINT "CORRECT"
  253. 2340  COLOR 4:LOCATE 11,43:PRINT "INCORRECT"
  254. 2350  COLOR 6:LOCATE 13,30:PRINT X:LOCATE 13,46:PRINT Z
  255. 2360  LOCATE 17,27:PRINT "Enter [X] to Exit.  Input"
  256. 2370  LOCATE 17,52:INPUT Y$
  257. 2380  IF Y$="X" THEN 2490 ELSE 2360
  258. 2390  GOSUB 2041
  259. 2400  PLAY "T180 O1 < A8 B8 > C8 D8 P8 C8 D2"
  260. 2410  PLAY "T180 O2 < A8 B8 > C8 D8 P8 C8 D2"
  261. 2420  PLAY "T180 O3 < A8 B8 > C8 D8 P8 C8 D2"
  262. 2430  COLOR 17:LOCATE 6,32:PRINT "CONGRADULATIONS!"
  263. 2440  COLOR 20:LOCATE 7,33:PRINT "PERFECT SCORE!"
  264. 2450  PLAY "T180 O4 < A8 B8 > C8 D8 P8 C8 D2"
  265. 2460  PLAY "T180 O5 < A8 B8 > C8 D8 P8 C8 D2"
  266. 2470  PLAY "T180 O6 < A8 B8 > C8 D8 P8 C8 D1"
  267. 2480  GOTO 2320
  268. 2490  CLS:COLOR 6:PRINT "One moment please...":LOAD"QUIZZLE",R
  269.